home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / search.dxr / 00002_movie init script.ls < prev    next >
Encoding:
Text File  |  2000-01-18  |  742 b   |  19 lines
  1. on exitFrame
  2.   global gSearchObj, gEnvironObj, gTextBaseObj
  3.   repeat with rc in ["and/or menu", "criteria menu", "category menu", "selection menu", "titles list", "keywords list"]
  4.     set the textHeight of member rc to 14
  5.   end repeat
  6.   if voidp(gEnvironObj) then
  7.     gEnvironObj = new(script("init class"))
  8.     tempPath = gEnvironObj.pCDVolume
  9.     tempPath = tempPath & gEnvironObj.pParentFolder
  10.     gEnvironObj.pCDVolume = tempPath
  11.     delimiter = getPathDelimiter(gEnvironObj)
  12.     updatesFolder = the pathName & delimiter & "UPDATES" & delimiter
  13.     the searchPath = LinearListAddifNew(the searchPath, updatesFolder)
  14.   end if
  15.   gSearchObj = new(script("search class"))
  16.   gTextBaseObj = new(script("textbase class"))
  17.   go(label("1_1"))
  18. end
  19.